home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TR-XOFF.ZIP / XOFF.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1997-01-01  |  6KB  |  331 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.     String   STRING008
  33.     String   STRING009
  34.     String   STRING010
  35.     String   STRING011
  36.     String   STRING012
  37.  
  38. ;------------------------------------------------------------------------------
  39.  
  40.     STRING009 = " hello decompiler!"
  41.     STRING010 = "                  ummmm dont rip and credit your own self! as some"
  42.     STRING011 = " people say, give credit to where credit is due!!  it may also be "
  43.     STRING012 = " used for learning the ppc language!"
  44.     GetUser
  45.     If (U_Expert == "0") Then
  46.         Tokenize TokenStr()
  47.         If (TokCount() > 0) Then
  48.             STRING006 = GetToken()
  49.             If (((!(Upper(STRING006) == " Y") || (!Upper(STRING006) == ";Y")) || (!Upper(STRING006) == "-Y")) || (!Upper(STRING006) == "/Y")) Goto LABEL001
  50.             Newline
  51.             KbdStuff "bye"
  52.             End
  53.         Endif
  54.         :LABEL001
  55.         If (Exist(PPEPath() + "xoff.pcb")) Goto LABEL003
  56.     Endif
  57.     Newline
  58.     Print "@X0Bl@X03ogoff@X08?!  y/n "
  59.     Color 0
  60.     Print " "
  61.     Backup 1
  62.     :LABEL002
  63.     STRING001 = ""
  64.     While ((STRING001 == "")) STRING001 = Inkey()
  65.     If (Upper(STRING001) == "Y") Backup 4
  66.     Color 7
  67.     Print "y"
  68.     Delay 1
  69.     Backup 1
  70.     Color 15
  71.     Print "y"
  72.     Delay 1
  73.     Newline
  74.     KbdStuff "bye"
  75.     Log "@X08[xoff]  --  @X0Bu@X03ser off normally!", 1
  76.     End
  77.     If (Upper(STRING001) == "N") Backup 2
  78.     Color 7
  79.     Print "n"
  80.     Delay 1
  81.     Backup 1
  82.     Color 15
  83.     Print "n"
  84.     Delay 1
  85.     Newline
  86.     Wait
  87.     End
  88.     Goto LABEL002
  89.     :LABEL003
  90.     STRING002 = "@X08 @X07 @X3A  logoff the system  @X07     @X08look for other boards to call@X07    @X08return to board@X07  "
  91.     STRING003 = "@X08    logoff the system     @X3A  look for other boards to call  @X08  return to board  "
  92.     STRING004 = "@X08    logoff the system       look for other boards to call  @X3A  return to board  @X08"
  93.     Print "@CLS@@POFF@@QOFF@"
  94.     DispFile PPEPath() + "xoff.pcb", 1
  95.     If (!Exist(PPEPath() + "xoff.cfg")) FCreate 1, PPEPath() + "xoff.cfg", 2, 0
  96.     FPutLn 1, "1"
  97.     FPutLn 1, "7"
  98.     FPutLn 1, "1"
  99.     FPutLn 1, "11"
  100.     FPutLn 1, "1"
  101.     FPutLn 1, "10"
  102.     FPutLn 1, ""
  103.     FPutLn 1, ".---------------------------------"
  104.     FPutLn 1, ")_ xoFF v2.3o configuration file!"
  105.     FPutLn 1, "|"
  106.     FPutLn 1, "|  line 1  --  x-position of Lightbar"
  107.     FPutLn 1, "|  line 2  --  y-position of Lightbar"
  108.     FPutLn 1, "|  line 3  --  x-position of start of listing bbs's"
  109.     FPutLn 1, "|  line 4  --  y-position of start of listing bbs's"
  110.     FPutLn 1, "|  line 5  --  x-position of local status line"
  111.     FPutLn 1, "|  line 6  --  y-position of local status line"
  112.     FPutLn 1, ""
  113.     FClose 1
  114.     FOpen 2, PPEPath() + "xoff.cfg", 2, 0
  115.     FGet 2, INTEGER001
  116.     FGet 2, INTEGER002
  117.     FGet 2, INTEGER003
  118.     FGet 2, INTEGER004
  119.     FGet 2, INTEGER005
  120.     FGet 2, INTEGER006
  121.     FClose 2
  122.     STRING007 = Left(String(U_BdlDay()), 11)
  123.     If (Left(STRING007, 1) <= "0") STRING007 = "nill/zilch!"
  124.     STRING008 = Left(String(U_Bul()), 8)
  125.     If (Left(STRING008, 1) <= "0") STRING008 = "zilch!"
  126.     AnsiPos INTEGER005, INTEGER006
  127.     SPrint "   user downloaded --             bytes     total uploads --           byets   "
  128.     Color 76
  129.     AnsiPos INTEGER005 + 22, INTEGER006
  130.     SPrint STRING007
  131.     AnsiPos INTEGER005 + 61, INTEGER006
  132.     SPrint STRING008
  133.     :LABEL004
  134.     AnsiPos INTEGER001, INTEGER002
  135.     Print STRING002
  136.     Color 0
  137.     Print " "
  138.     Backup 1
  139.     :LABEL005
  140.     STRING005 = ""
  141.     While ((STRING005 == "")) STRING005 = Inkey()
  142.     If ((STRING005 == "LEFT") || (STRING005 == "4")) Goto LABEL008
  143.     If ((STRING005 == "RIGHT") || (STRING005 == "6")) Goto LABEL006
  144.     If (STRING005 == Chr(13)) Goto LABEL010
  145.     Goto LABEL005
  146.     :LABEL006
  147.     AnsiPos INTEGER001, INTEGER002
  148.     Print STRING003
  149.     Color 0
  150.     Print " "
  151.     Backup 1
  152.     :LABEL007
  153.     STRING005 = ""
  154.     While ((STRING005 == "")) STRING005 = Inkey()
  155.     If ((STRING005 == "LEFT") || (STRING005 == "4")) Goto LABEL004
  156.     If ((STRING005 == "RIGHT") || (STRING005 == "6")) Goto LABEL008
  157.     If (STRING005 == Chr(13)) Goto LABEL011
  158.     Goto LABEL007
  159.     :LABEL008
  160.     AnsiPos INTEGER001, INTEGER002
  161.     Print STRING004
  162.     Color 0
  163.     Print " "
  164.     Backup 1
  165.     :LABEL009
  166.     STRING005 = ""
  167.     While ((STRING005 == "")) STRING005 = Inkey()
  168.     If ((STRING005 == "LEFT") || (STRING005 == "4")) Goto LABEL006
  169.     If ((STRING005 == "RIGHT") || (STRING005 == "6")) Goto LABEL004
  170.     If (STRING005 == Chr(13)) Goto LABEL012
  171.     Goto LABEL009
  172.     AnsiPos INTEGER001, INTEGER002
  173.     Print ""
  174.     Color 0
  175.     Print " "
  176.     Backup 1
  177.     Goto LABEL004
  178.     :LABEL010
  179.     AnsiPos INTEGER003, INTEGER004
  180.     KbdStuff "bye"
  181.     Log "@X08[xoff]  --  @X0Bu@X03ser off normally!", 1
  182.     End
  183.     :LABEL011
  184.     AnsiPos INTEGER003, INTEGER004
  185.     Print ReadLine(PPEPath() + "boards.pcb", 1)
  186.     Color 0
  187.     Print " "
  188.     Backup 1
  189.     Delay 1
  190.     Print ReadLine(PPEPath() + "boards.pcb", 2)
  191.     Color 0
  192.     Print " "
  193.     Backup 1
  194.     Delay 1
  195.     Print ReadLine(PPEPath() + "boards.pcb", 3)
  196.     Color 0
  197.     Print " "
  198.     Backup 1
  199.     Delay 1
  200.     Print ReadLine(PPEPath() + "boards.pcb", 4)
  201.     Color 0
  202.     Print " "
  203.     Backup 1
  204.     Delay 1
  205.     Print ReadLine(PPEPath() + "boards.pcb", 5)
  206.     Color 0
  207.     Print " "
  208.     Backup 1
  209.     Delay 1
  210.     Print ReadLine(PPEPath() + "boards.pcb", 6)
  211.     Color 0
  212.     Print " "
  213.     Backup 1
  214.     Delay 1
  215.     Print ReadLine(PPEPath() + "boards.pcb", 7)
  216.     Color 0
  217.     Print " "
  218.     Backup 1
  219.     Delay 1
  220.     Print ReadLine(PPEPath() + "boards.pcb", 8)
  221.     Color 0
  222.     Print " "
  223.     Backup 1
  224.     Delay 1
  225.     Print ReadLine(PPEPath() + "boards.pcb", 9)
  226.     Color 0
  227.     Print " "
  228.     Backup 1
  229.     Delay 1
  230.     Print ReadLine(PPEPath() + "boards.pcb", 10)
  231.     Color 0
  232.     Print " "
  233.     Backup 1
  234.     Delay 1
  235.     Print ReadLine(PPEPath() + "boards.pcb", 11)
  236.     Color 0
  237.     Print " "
  238.     Backup 1
  239.     Delay 1
  240.     Print ReadLine(PPEPath() + "boards.pcb", 12)
  241.     PrintLn ""
  242.     Color 0
  243.     Print " "
  244.     Backup 1
  245.     Wait
  246.     Log "@X08[xoff!]  --  @X0Cu@X04ser views bbs listing!", 1
  247.     Print "@POFF@@CLS@@QOFF@"
  248.     DispFile PPEPath() + "xoff.pcb", 1
  249.     AnsiPos INTEGER005, INTEGER006
  250.     SPrint "   user downloaded --             bytes     total uploads --           byets    "
  251.     Color 76
  252.     AnsiPos INTEGER005 + 22, INTEGER006
  253.     SPrint STRING007
  254.     AnsiPos INTEGER005 + 61, INTEGER006
  255.     SPrint STRING008
  256.     Goto LABEL006
  257.     :LABEL012
  258.     AnsiPos INTEGER003, INTEGER004
  259.     Wait
  260.     End
  261.  
  262. ;------------------------------------------------------------------------------
  263. ;
  264. ; Usage report (before postprocessing)
  265. ;
  266. ; ■ Statements used :
  267. ;
  268. ;    5       End
  269. ;    3       Wait
  270. ;    23      Color 
  271. ;    23      Goto 
  272. ;    20      Let 
  273. ;    40      Print 
  274. ;    1       PrintLn 
  275. ;    22      If 
  276. ;    2       DispFile 
  277. ;    1       FCreate 
  278. ;    1       FOpen 
  279. ;    2       FClose 
  280. ;    6       FGet 
  281. ;    17      FPutLn 
  282. ;    1       GetUser
  283. ;    3       Log 
  284. ;    15      Delay 
  285. ;    4       Newline
  286. ;    1       Tokenize 
  287. ;    3       KbdStuff 
  288. ;    13      AnsiPos 
  289. ;    21      Backup 
  290. ;    6       SPrint 
  291. ;
  292. ;
  293. ; ■ Functions used :
  294. ;
  295. ;    22      +
  296. ;    26      ==
  297. ;    2       <=
  298. ;    1       >
  299. ;    7       !
  300. ;    9       ||
  301. ;    6       Upper()
  302. ;    4       Left()
  303. ;    3       Chr()
  304. ;    1       U_BdlDay()
  305. ;    1       U_Bul()
  306. ;    4       Inkey()
  307. ;    2       String()
  308. ;    18      PPEPath()
  309. ;    12      ReadLine()
  310. ;    1       GetToken()
  311. ;    2       Exist()
  312. ;    1       TokenStr()
  313. ;    1       TokCount()
  314. ;
  315. ;------------------------------------------------------------------------------
  316. ;
  317. ; Analysis flags : No flag
  318. ;
  319. ;------------------------------------------------------------------------------
  320. ;
  321. ; Postprocessing report
  322. ;
  323. ;    0       For/Next
  324. ;    0       While/EndWhile
  325. ;    2       If/Then or If/Then/Else
  326. ;    0       Select Case
  327. ;
  328. ;------------------------------------------------------------------------------
  329. ;                 AEGiS Corp - Break the routines, code against the machines!
  330. ;------------------------------------------------------------------------------
  331.